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Restart of a Link Job From H* Tape (FORTRAN IV Input/ REF. 
Output Library) CPB-1137 


SUBJECT: 


The attached pages describe in detail the procedures used in 
reloading a saved H* tape file, which has been created by a. 
previous run. (Procedures used to create an H* file are described 
in GE-625/635 General Loader, CPB-1008. To load the subsequent — 
links, use the LLINK or LINK subroutine as describedin the GE-625/635 
FORTRAN IV Input/Output Library, CPB-1137.) The attached pages should 


be inserted in the GE~-625/635 FORTRAN IV~Input/Output Library, 
CPB-1137. | 


Subsequent issues of CPB-1137 will include this information. 


. LHSF 


i 


Il. 


IIl. 


- .~LHSNF -- RESTART OF LINK JOB FROM H* TAPE 


PURPOSE 


To reload a program from an H* file (tape) which was generated 
in a previous GELOAD activity. The H* file was generated 


by having a $ TAPE H* control card (see GE-625/635 General Loade 


CPB-1008) at execution time. 
METHOD. 


The H* file generated by GELOAD contains a link identified 
as ////// which is the main or common subprogram of the job. 
If the FCB option was in effect during loading (generation 
of H* file), a second link identified as TT / 174 containing 
all file control blocks generated by GELOAD will also be 
present on H*. This subroutine searches the H* file for 
these identifiers (/////1 is optional), restores them, and 
enters the main subprogram at the entry location specified 
during the GELOAD activity. 


USAGE 


1. This program is called directly from the subroutine library 
| and requires no other subprograms. 


2. The entire job could be set up as follows: 


S$ SNUMB 

IDENT 

USE . LHSF 
ENTRY .LHSF 
EXECUTE 


LIMITS 

TAPE H*, eeee 

DATA AB (Optional ) 
$ ENDJOB 
*KKKEOF 


“SS -> 


If the NOFCB option was in effect when GELOAD generated 
the H* file, an entry card of the form: 


S$ ENTRY .LHSNF 


must replace the card following the $ USE card. 


/ NO: 


600-60 | | SH_3 oof ~=SH_3 


IV. 


RESTRICTIONS 


1. A $ LOWLOAD card (see CPB-1008) must be included if the 
H* file was generated under this option. 


2. The same memory limits must be requested as were when the 
H* file was generated. 


3. Use of one of the set up subroutines must have been made 
when the H* file was generated. Entry to the main link is 
made through those subroutines for purposes of initial- 
ization of fault vectors. 
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INTRODUCTION 


Individuals interested in details of the FORTRAN Input/Output subprograms 
will find the following description of their general mode of operation useful. 
It is assumed that the reader is familiar with the manner in which the General 
Loader (GELOAD) processes the GECOS and FFILE file control cards. 


The Input/Output library is dependent upon the fact that execution has 
started with the initialization subprogram .SETU. for one of its functions is 
to initialize fault vector cell 25, to contain the address of the "logical file-- 
file control block" table. The “user can also accomplish this initialization 
by calling SETLGT in the case where he has created his own table. The 
library also depends upon the limits of unused memory being expressed in 
fault vector cell 37 8 (always done by GELOAD). 


A call to any I/O library subprogram from the FORTRAN language con- 
tains, as one of the arguments, the logical file expressed as an integer. This 
integer is placed in character position 5 of cell . FBAD. (defined in subprogram 
FOPEN) by the called I/O subprogram. The called subprogram then calls 
FOPEN which searches the "logical file--file control block" table defined below: 


1. Fault vector cell 259 is of the form: 
ZERO TAB ,O 
2. The actual table has the form: 


ZERO ENDTAB,O 
TAB VFD 18/FCBL,6/LGU1,6/LGU2 , 6/LGU3 
VFD 18/FCB2, 6/LGU4, 6/LGU5, 6/LGU6 


ZERO 0,0 


ENDTAB ZERO 0,0 
where: 


TAB-1 contains the address of the last available location in the 
table 


GE-GOO SERIES 


FCB1 contains the address of cell LOCSYM of file control 
block 1 


LGU1,LGU2,LGU3 are the FORTRAN logical files which 
reference file control block 1. Missing files 
are filled in with zero. 


If more than three logical files reference the same file control block, the 
FCBI1 pointer and the additional logical files may occur at any other place 
in the table. 


There are as many entries in the table as needed to express the various 
file control blocks and logical files referencing them. After the last 
entry in the table, zeros fill out the table. 


FOPEN places the address of the file control block for the referenced 
file in bits 0-18 of cell . FBAD., but does not destroy the logical file in bits ae 
30-35 of that cell. FOPEN then proceeds to open the file and return ———— prance 


The subprogram which initiated the call to FOPEN now has the information 
necessary to perform calls to the proper GEFRC subprograms. In the case 
of an output file, bits 30-35 of cell . FBAD. are used as the report code of the 
output record. Thus, if many logical files are connected to SYSOUT, they will 
be separated automatically at printing time according to the file code originally 
specified in the FORTRAN calling sequence. 
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DEBUG--OBJECT TIME DEBUG PROCESSOR 


I. PURPOSE 
To decide whether or not to produce debug output based on 
the contents of the IF and FOR clauses. 

II. METHOD 
DEBUG assumes the General Loader (GELOAD) has placed a 
debug table in memory. DEBUG is entered by a DRL instruction. 
The location of the DRL instruction is checked to 
see if it was inserted by GELOAD (a legal debug request), 
or if it was originally present in the interrupted program. 
If it was a debug request, the IF and FOR clauses are 
examined in the order in which they were specified. If 
they are satisfied, DEBUG writes information describing the 
particular interrupt it is interpreting. It then calls FVFO 
for the List output, using the NAMELIST table supplied in 
the debug table by GELOAD, The instruction replaced by 
the DRL instruction is then executed and control is 


returned to the next instruction in the interrupted program. 
If the DRL instruction was not inserted by GELOAD, it is ignored 
and control is returned to the interrupted program. For a more 
detailed description of the DEBUG feature consult the GE-635 
General Loader Reference Manual, CPB-1008. 

III. USAGE | 
l. Calling Sequence--entered by a DRL instruction. 
2. DEBUG uses 285 memory locations. 


3. No error conditions. 
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IV. RESTRICTIONS 


The subprograms FRWD, FOPEN, and FVFO must be in memory. 
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DUMP--MEMORY DUMP 


I. PURPOSE 

To dump all or designated areas of memory in a selected 
format. 

II. METHOD 
An appropriate NAMELIST table is created using the 
parameters specified in the calling sequence. DUMP 
calls FVFO for the actual NAMELIST output processing. The 
panel is dumped followed by the blocks of memory requested. 
If DUMP was called, execution is terminated by a call to 
EXIT, If PDUMP was called, the panel is restored and 
control is returned to the calling program. 

IIT. USAGE 
L. Calling Sequence - CALL DUMP (Aj, By, Fy,..-,An, Bn: Fn) 


ra coarse (A,, By, Fy,---.An, By, Fy) 
where A, and B; are arguments that indicate the 
limits of memory to be dumped. Either A or B may 
represent the upper or lower limits. 


F; is an integer indicating the dump format desired: 


rr 
iT] 


0 octal 


Z| 
it 


1 integer 


Fj = 2 real 
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in 


3 double precision 


4 complex 


= 5 logical 


the last F; is omitted, it is assumed to be zero. 
no arguments are given, all of memory is dumped 


octal. 


2. DUMP uses 160 memory locations. 


IV. RESTRICTIONS 


The subprograms EXIT and FVFO must be in memory. 
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I. 


1 ie 
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PURPOSE 
To purge all buffers and terminate current activity. 
METHOD 
EXIT eeansesuue the logical file table created by the 
General Loader (GELOAD) into a file designator word list 
for closing all files. It calls CLOSE which purges the 
buffers and writes an end of file on an output file and 
notes the closing of an input file. Execution is terminated 
by a MME GEFINI. 
USAGE 
Ll. Calling Sequence - CALL EXIT 
or CALL .FEXIT 

EXIT and FEXIT are seuiseaenk: 
2. EXIT uses 30 memory locations, 
3. No error conditions. 
RESTRICTIONS 
The subprogram CLOSE must be in memory. 


EXIT exists in the library as a subset of FOPEN. 


FBIO--SHORT LIST BINARY I/O INTERFACE 


I. PURPOSE 
To call FSLIO for short list binary I/O. 
II. METHOD 
FBIO consists of four calling sequences for FSLIO. 
III. USAGE 
1. Calling Sequence - CALL .FBLO.(A,M) for single-precision 
binary output, 
CALL .FBDO.(A,M) for double-precision 
binary output, 
CALL -FBLI.(A ,M) for single-precision 
binary input, 
CALL .FBDI.(A,M) for double-precision 
binary input, 
where A = location of array, and M = Location of number 
of elements. 
2. FBIO uses 20 memory locations. 
3. No error conditions. 
IV. RESTRICTIONS 


The subprograms FRWB and FSLIO must be in memory. 
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buffer re- initialized. If the original number of logical 


records in the buffer was N, N-1 logical records are 


skipped by successive calls to GET. By using this 


] 


PURPOSE 

To backspace one logical record on a file. 

METHOD 

The buffer for the file is inspected and the 

number of cee records — in the buffer is obtained! pees 

“Contents of 1 the ‘buffer are written on. ihe. file if it is an 
San enn Hema SA MRR) 

i; output file. The file is physically packepaced aaa the 
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technique, which always involves physical backspacing, thay etcct bbe 
renee etna tytn masstiiresthstety oor ect ntaneatedti teinsenestunnnta eebeneennna / PVN Art whe 


FBST remains more independent of the General File and pte to obese d tea gl uf 


Record Control program (GEFRC). 
USAGE 
1. Calling Sequence - CALL .FBST.(N) 
where N is the logical file to be backspaced. 
2. FBST uses 240 memory locations. 
3. The error conditions are: 
FXEM error #47 if logical file requested was connected 
either to SYSOUT or to a physical device other nen. 


SESSION ea brtoriny 


magnetic tape. FXEM terminates execution. 
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FXEM error #49 if an erroneous end of file appears. 
FXEM terminates execution. 
IV. RESTRICTIONS | 
| L. The subprograms GET, BSREC, EXIT, FOPEN, and FXEM 
must be in memory. 
2. If more than one logical file refers to the same physical 
file, a request to backspace the physical file results 
in pointing to the last previous logical record, 


regardless of the logical file to which it is connected. 


I/O LIBRARY 


7 GE°6O00 SERIES | ack FORTRAN IV 


-10- 


FCLOSE--FILE CLOSING 
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IV. 
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PURPOSE 
To close a file and release the buffer assigned to that file. 
The buffer is released only if it is standard size (320 words). 
METHOD 
FCLOSE opens the file in its previous mode and calls the 
General File and Record Control (GEFRC) subprogram CLOSE to 
close the file without rewind. FCLOSE examines and 
releases any buffers of standard size assigned to the file. 
It places their memory address in a table of available 
buffers (location .FBFTB in the FOPEN subprogram) for 
possible reassignment to a newly opened file. 
USAGE 
1. Calling Sequence - CALL FCLOSE(U) 
where U is the logical file number. 
2. FCLOSE uses 47 memory locations. 
RESTRICTIONS 
1. If more than one Logical file refers to one physical 
file, the physical file must be closed using FCLOSE 
only once, 


2. The subprograms CLOSE and FOPEN must be in memory. 


4 te 


FEFT--REWIND AND ENDFILE PROCESSOR 


I. PURPOSE 
To rewind input or output files or write an end of file 
on output files. 
II. METHOD 
FEFT records the desired rewind or write end-of-file 
option in a file designator word. FEFT calls 
subprogram CLOSE which writes an end of file (if the file 
designated is an output file) followed by a rewind (if 
requested). 
TII. USAGE 
1. Calling Sequences - CALL .FEFT.(N) compiled for the 
FORTRAN statement ENDFILE N 
CALL .FRWT.(N) compiled for the 
FORTRAN statement REWIND N 


where N is the logical file desired. 


2. FEFT uses 70 memory locations. 
3. The error condition is: 
FXEM error #35 if there is an attempt to rewind or 
write end of file on files Ix or Pk, Execution is 
continued with normal return to caller. 
IV. RESTRICTIONS 


The subprograms FOPEN, OPEN, CLOSE, FXEM must be in memory. 
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FEOF--END-OF-FILE PROCESSOR 


I. 


2 


Lit. 


IV. 
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PURPOSE 

To write an end-of-file message and either terminate 
execution or return to the calling program. 

METHOD 

If a Library subroutine detects an end of file on an 
input file, it calls FEOF. FEOF places the file label in 
a message and calls FXEM to print the message. FEOF 
either terminates execution, or if the user has provided 
for end-of-file condition by having previously called 
FLGEOF for the current file, FEOF returns to the calling 
program indicating an end of file was encountered. 

USAGE 


1. Calling Sequence - CALL .FEOF. 


It is assumed that the address of the proper file control 


block is in the FOPEN subprogram cell .FBAD. 

2. FEOF uses 35 words. 

3. FXEM error #34 is always used to write the end-of-file 
message. 

RESTRICTIONS 


The subprograms FOPEN and FXEM must be in memory. 


Lpse 


FLDO--DOUBLE PRECISION POWERS OF TEN 


i 
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IIl. 


IV. 
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PURPOSE 

To store a table of double-precision powers of ten for 
quick reference by all decimal radix conversion routines. 
METHOD 

-FLDO. + 2%n is the location of DEC 1.0Dn = 10", for 

ih = 238... 374 Gees ely. Das Ly wines. OF 4/08. 

USAGE 

1. .FLDO. is the only SYMDEF symbol. 

2. FIDO uses 156 memory locations. 

3. No error conditions; no executable instructions. 
RESTRICTIONS 


None. 
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FLGEOF--INITIALIZATION OF END-OF-FILE PROCESSING 


I. PURPOSE 


To provide a signal to FEOF requesting a return to the 


calling subprogram if an end-of-file condition occurs. 


II. METHOD 


The address of the variable to be used for end-of-file | 


processing is placed in word -15 of the file control 


block. 
ITI. USAGE 
1. Calling 


where U 


is the logical file number 


Sequence - CALL FLGEOF (U,V) 


The value of the variable is set to zero. (iuitiae VALUE ) 


V is the address of variable used to ae 


CV )=- BD Mere OF ¢ wCeta ite f 


an end-of-file condition. 
2, FLGEOF uses 18 memory Locations. 
IV. RESTRICTIONS 


ie 


If more than one logical file refers to one physical 


-O nN at 


pReEL fate 


file, the same variable must be used for all logical,” 


files referring to that physical file. 
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FLGERR--INITIALIZATION OF DATA ERROR PROCESSING 


Te 


le 


ITI. 


IV. 
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PURPOSE 


To provide a variable for indicating the occurrence 


| 
Ear 
DEAhern | 
: 


of erroneous data. |: 


METHOD 
FLGERR places the address of the variable in word -16 
of the file control block. The value of the variable is 
set to zero. 
USAGE 
1. Calling Sequence - CALL FLGERR (U,V) 
where U is the logical file number 


V is the address of the variable used to indicate 


X, 


CY dca + Awd 


an input data error. 
-0 * nti 


2. FLGERR uses 18 memory locations. 

RESTRICTIONS 

Ll. If more than one logical file refers to one physical 
file, the same variable must be used for all logical 
files referring to that physical file. 


2. The subprogram FOPEN must be in memory. 


S16= 


FOPEN--FILE OPENING 


I. PURPOSE 
To select and assure that the physical file associated with 
the desired logical file is open. 

II. METHOD 
FOPEN is divided into three phases: 
1. Locating the physical file, 
2. Assigning buffers to the file, 
3. Assuring the file is open. 
FOPEN examines the logical file table for a logical file 
identical to the one in cell .FBAD. If one is 
found, FOPEN places the address of the file control block 
associated with that Logical file in cell .FBAD. The 
file control block is examined to determine if buffers 
are required that have not been previously assigned, 
If buffer assignment is necessary, the table .FBFIB is 
examined to see if any buffers have been released that 
were previously assigned to another file; these are used 
first. If none exist, the buffers are assigned from the . 
available unused memory. The file control block is again 
examined to see if the file is open. If it is not open, 
the General File and Record Control (GEFRC) subprogram 
OPEN is called for the proper file control block. 


Control is returned to the calling program. 
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IIIT. USAGE 


lL. 


Calling Sequences - 

a. CALL .FGTIFB to obtain the address of the file 
control block in the address field of cell .FBAD. 
only. 

b. CALL .FOPEN (S) to obtain the information described 
in CALL .FGTFB and to assure that the logical file 
is open. | 
S indicates the mode in which the file is to be 
opened: 


SS 


-l Open the file in its previous mode. 
S = odd Open the file as output. 
Ss) 


even Open the file as input. 


In both calling sequences it is assumed that upon entry 


_to FOPEN the logical file referenced is contained in 


ee 


(bits 30-35) 7 


|character position 5 of cell .FBAD. 


Ne 


a 


c. The table of standard length reusable buffers 
ere 


ao, 
- 


promatatecer ernest! 


(32) words) is defined as .FBFTB, 
d. An equivalent entry to .FOPEN is .FXOP. which is 
used by the FXEM subprogram to prevent destroying 
the calling sequences in case of recursive entry. 
FOPEN uses 210 memory Locations. 
The error conditions are: 
FXEM error #37 if the logical file requested is not 
present in the logical unit table; FXEM terminates 


execution. 
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FXEM error #38 if there is not enough memory available 


for buffer assignment; FXEM terminates execution. 


FXEM error #56 if there is an attempt to read file 


Px € SYSOUT); FXEM terminates execution. 


FXEM error #54 if there is an attempt to write on 


file Ix (SYSIN); FXEM terminates execution. 
Abort code Q2 if no logical file table exists. 


Abort code Q3 if logical file 06 does not exist in 
the logical unit table; a message from FXEM 
cannot be written. 
IV. RESTRICTIONS 
The subprograms OPEN, SETIN, SETOUT, and FXEM must be in 


memory. 
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DVCHK--EXPONENT OVERFLOW AND DIVIDE CHECK TESTS 


Te 
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PURPOSE 


To test the General Comprehensive Operating Supervisor 


' (GECOS ) Fault Status Word for a previous exponent register 


overflow or divide check. 

METHOD | 

DVCHK tests the required bit in the Fault Status Word, and 
sets an iriteger variable to 1 if ON, or 2 if OFF. DVCHK 
always exits with the required bit turned OFF. (zero). 
USAGE | 


5 ae Sat kang Sequence - CALL DVCHK(J) for divide check, 


CALL OVERFL(J) for exponent register 


overflow, 


where J = location of integer variable. 


2. DVCHK uses 20 memory iscabione: 


- 3. No error conditions. 


RESTRICTIONS 


DVCHK assumes normal GECOS recovery for exponent register 


and divide check. 
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FRWB--BINARY I/O INTERFACE 


I. PURPOSE 
To process binary I/O lists, using standard General File and 
Record Control (GEFRC) variable-length records. 
II. METHOD 
FRWB groups binary logical records into physical records of 
> the size specified in the file control block. If the size. of 
ae the logical record exceeds the physical buffer size, or if there 
is insufficient space remaining in the physical buffer for the 


logical record, the logical record is partitioned into segments 


spanning as many physical records as required. 


The record control word for each segment of the logical record 
contains a media code 3. The last segment is followed by a l-word 
record whose record control word contains a media code 1. All 


logical records which are completely contained within a physical 


record have a media code 1 in the record control word. 
III. USAGE 
1. Calling Sequence - CALL .FRDB.(ARG) compiled for READ (n), 
CALL .FWRB.(ARG) compiled for WRITE (n), 
CALL .FRLR. (ARG) compiled for end-of- 
input list, | 
CALL .FWLR.(ARG) compiled for end-of- 
output list, 


fot: EBPs | for double-precision 


STAQ address, tag input list items, 


for all other input 


TSX1 .FBLT. 
list items, 


STA address, tag 
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LDAQ address, tag for double-precision 
output list items, 


TSX1 .FBDT. 
LDA address, tag | for all other output 


TSXL .FBLT. list items, 


where ARG = location of DEC n. 
2. FRWB uses 239 memory locations. 
3. The error conditions are: 
FXEM Error #34 - illegal end-of-file mark. 
FRWB calls FEOF for error recovery. 
If an end-of-file other than 17.5 739 or 768 is detected, 


the activity will be aborted (CB-Abort) unless an error 


return has been provided. 


FXEM Error #40 - list exceeds logical record length. 


All remaining list items are set to zero. 


IV. RESTRICTIONS 
The subprograms FEOF, FXEM, FOPEN, GET, and WTREC must be in 


memory. 
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FRWD--BCD I/O INTERFACE BY FORMAT CONTROL 


I. PURPOSE 
To process a list for BCD I/O or for internal conversion, in 
parallel with a FORMAT statement, using standard General File 
and Record Control (GEFRC) variable-length records. 
II. METHOD 
Each list item corresponds to a FORMAT specification. Each | 
BCD record is a card image (80 columns) or a print line 


image (up to 132 columns, including carriage control). 


ee aE es TRA ea RIOT: EERO aa IRL 


IIIT. USAGE 
1. Calling Sequence - CALL .FRDD.(ARG,LF) compiled for 

READ (n,f), 

CALL .FWRD. (ARG,LF) compiled for 
WRITE (n,£), 

CALL .FRCD.(ARG,LF) compiled for 
READ £, [n=41] ms pe Crd 

CALL .FPRN.(ARG,LF) compiled for 
PRINT £, [n=42] 

CALL .FPUN.(ARG,LF) compiled for 


PUNCH f, [(n=43] 


te Lore CALL .FRIN. compiled for end-of- 
2 ane ; input list, | 
on oe —— 
\ oro. | | CALL .FFIL. compiled for end-of- 
ee | 
i 14 vendo (svert) | output list, 
a 
; wed 
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TSXL .FCNV. 
for double-precision input list items, 
STAQ address, tag 


Oo 
for all other input list items, 
STA address, tag 


LDAQ address, tag 
for double-precision output List items, 


TSXL .FCNV. 


LDA address, tag 
for all other output List items, 
TSX1 .FCNV. aa: 
where ARG = location of ARG XX, 

XX = location of DEC n, 


and LF = location of FORMAT statement f. 


2. Calling sequences for internal conversion. 
a) Binary-to-decimal conversion 
CALL .BDCNV(BUF , FORM,WDA, LINES) 


LDAQ (data) 
. for double precision items 
TSX1  .FCNV. 


LDA (data)>)_ 
for single precision items 
TSX1 .FCNV. 
CALL .FFIL. for end of output list 
where: 


BUF location of a buffer in which to store the 
resulting BCD record 


FORM location of the format controlling the 
conversion ; 


WDA location of an array in which to store the 
number of words in each of the resulting 
lines. 


LINES location in which to store the number of 
lines. 


- =24- Rev. March 1968 


GE-GOO SERIES —H——— ho zane 


b) Decimal-to-binary conversion 


CALL 
TSX1 
STAQ 
TSXL 
STA 

CALL 


where: 


LINES 


. DBCNV (BUF , FORM ,WDA, LINES ) 


- FCNV. 
for 


(data) 
~FCNV. 

| fox 
(data) 
-FRIN. for 


location of 


location of 
conversion 


location of 
of words in 


location containing the number of lines 


double precision items 


single precision items 


end of input list 


the BCD record to be converted 


the format controlling the 


an array containing the number 
each line in the BCD record 


3. FRWD uses 1146 memory locations. 


4. The error conditions are: 


FXEM Error #31 - illegal FORMAT statement, 


FORMAT scan procedes as for end of FORMAT, 


FXEM Error #32 - illegal character in data or bad format. 


Data scan treats illegal character as zero. 


FXEM Error #34 - illegal end of file mark. 


FRWD calls FEOF for error recovery. 


FXEM Error #57 - illegal character for L conversion, 


Data scan treats illegal character as space. 


IV. RESTRICTIONS 


Sat A ad 


my 
T i ‘ 6 ke 
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TeUe, om «FALSE, 


The subprograms F1DO, FEOF, FOPEN, FSLEW, FXEM, GET, 


and WTREC must be in memory. 
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FSIO--SHORT LIST BCD I/O INTERFACE 


I. PURPOSE 
To call FSLIO for short List BCD I/O. 
II. METHOD 
FSIO consists of four calling sequences for FSLIO,. 
III. USAGE 
1. Calling Sequence -CALL .FSLO.(A,M) for single-precision 
BCD output, 
CALL .FSDO.(A,M) for double-precision 
BCD output, 
CALL .FSLI.(A,M) for single-precision 
BCD input, 
CALL .FSDI.(A,M) for double-precision 
BCD input, 
where A = location of array, and M = location of number 
of elements. 
2. FSIO uses 20 memory locations. 
3. No error conditions. 
IV. RESTRICTIONS 


The subprograms FRWD and FSLIO must be in memory. 
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FSLIO--SHORT LIST I/O PROCESSOR 


Ls 


i 


Lil. 


EV, 
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PURPOSE 

To provide List processing for a nonsubscripted array, 

in conjunction with subprogram FBIO or FSIO. 

METHOD 

FSLIO initializes the 1/0 loop, and processes the entire 

array, starting with the first element. 

USAGE 

1. The calling sequence stores C(X2) in .FSLII and 
points C(X2) to a three-word parameter vector. The 
first two words, an even-odd pair, specify the I/0 
calling skeleton for the loop. The third word specifies 
the precision (1 or 2) and the state (0 for output, 
1 for input) in 18-bit fields. 


Calling Sequence - 


Output Input 

E STX2  .FSLII E STX2  .FSLII 
TSX2 .FSLIO,I TSX2  .FSLIO,I 

E LDr wx 2 E TSX1L c 
TSX1 c STr ** 2 
ZERO p,0 ZERO p,l 


Single precision: r=A andp=l. 
Double precision: r = AQ and p = 2. 


c = .FCNV., .FBDT., or .FBLT.. 
2. FSLIO uses 24 memory locations. 
3. No error conditions. 
RESTRICTIONS 
FSLIO restores C(X2) = CCFSLII )g_}7 and exits to the caller 
of FBIO and FSIO. Furthermore, FSLIO uses the input 


parameters of FBIO or FSIO. 
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SLITE--SENSE LIGHT SIMULATOR 


I. PURPOSE 
To simulate the setting and testing of sense lights. 
II. METHOD 
Bits 1-35 of .FLITE correspond to Sense Lights 1-35, 
respectively, with 0 denoting OFF and 1 denoting ON. 
IIIT. USAGE 
1. Calling Sequence -CALL SLITE(ZERO) to clear Sense 
Lights 1-35, 
CALL SLITE(I) to turn ON Sense 
Light i, 
CALL SLITET(I,J) to test and turn 
OFF Sense Light i, 
where ZERO = location of integer 0, 


1 


location of integer i, 
and J = location of an integer variable to be set 
to 1 if Sense Light i was ON, or 2 if it 
was OFF, 
Note that FLITE is a SYMDEF symbol. 
Zs SLITE uses 56 memory locations. 
3. The error condition is: 
FXEM Error #51 if i is not 0-35, or if i is O in SLITET, 
Sense Light i is ignored if catering: or is declared 


OFF if testing. 
IV. RESTRICTIONS 


The subprogram FXEM must be in memory. 


GlE-"GOO SERIES 


SSWICH--SENSE SWITCH TEST 


I. PURPOSE 
To test the General Comprehensive Operating. Supervisor 
(GECOS) switch word for the status of a sense switch. 
II. METHOD 
Bits 6-11 of the GECOS switch word correspond to Sense 
Switches 1-6, respectively, with O denoting OFF am 1 
denoting ON, 
IIIT. USAGE 
1. Calling Sequence - CALL SSWTCH(I,J) to test Sense 
Switch i, 
where I = location of integer i 
J = location of an integer variable to be set 
to 1 if Sense Switch i is ON, or 2 LE Lt 16. OFF, 
2. SSWTICH uses 42 memory locations. 
3. The error condition is: 
FXEM Error #53 if i is not 1-6. 
Then Sense Switch i is declared to be OFF. 
IV. RESTRICTIONS 


The subprogram FXEM must be in memory. 
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FVFI--NAMELIST INPUT 


I. PURPOSE 
To process NAMELIST input using the General File and Reeoud 
Control (GEFRC) variable-length records. 

II. METHOD 
FVFI scans the input file for che proper NAMELIST name. 
When the name is found, FVFI scans the record for 
variables, confirms that the variables are included in 
the NAMELIST, and stores the input value according to 


———— ee 
the type specified in the NAMELIST table. 


= 
TII. USAGE 
Ll. Calling Sequence - CALL .FVFI.(ARG,LF) 
where ARG = Location of ARG XX 


XX 


location of DEC n (logical unit) 
LF = Location of NAMELIST table 

2. FVFI uses 670 memory Locations. 

3. In the error conditions described below, execution is 
continued only if the user has previously initialized 
FLGERR, which causes a normal return when bad data 
is encountered. 

FXEM Error #42 - illegal heading card. 


FVFI continues as for end of data. 


FXEM Error # 43 - illegal variable name. 


FVFI continues as for end of data. 
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FXEM Error # 44 - illegal subscript or array 
size exceeded. 


FVFI continues as for end of data. 


FXEM Error #45 - illegal character after right 
parenthesis. 
Data scan assumes comma between right parenthesis 
ee Ce ee 


and next character. 


FXEM Error #46 - illegal character in data. 


Data scan treats illegal character as zero. 


FXEM Error #48 - illegal logical constant» 


Data scan treats illegal constant.as .FALSE. 


FXEM Error #52 - illegal Hollerith field. 
FVFI continues as for end of data. 
IV. RESTRICTIONS 
The subprograms F1D0O, FEOF, FOPEN, FXEM, and GET must 


be in memory. 
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FVFO--NAMELIST AND DEBUG OUTPUT 


I. PURPOSE 
To process NAMELIST, DEBUG, DUMP, and PDUMP output, using 
standard General File and Record Control (GEFRC) variable- 
length records. 
II. METHOD 
FVFO scans a NAMELIST table, and prints the current value 
of each NAMELIST variable in the format specified by its 
entry in the NAMELIST table. 
III. USAGE 
Ll. Calling Sequence - CALL .FVFO.(ARG,LF) for NAMELIST 
output,  WEITE (Minch nine) Lot 
CALL .FVDO.(ARG,LF) for DEBUG, DUMP , 
PDUMP output, 
where ARG = location of ARG XX 
XX = location of DEC n (logical unit) 
LF = location of NAMELIST table. 
2 FVFO uses 510 words. 
3. No error conditions. 
IV. RESTRICTIONS 
The subprograms F1DO, FOPEN, FXEM, and WTREC must be in 


memory. 
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FXEM -- EXECUTION ERROR MONITCR 
I, PURPOSE 
1. To print a trace of subroutine calls. 
2. To print execution error messages. 
3. To terminate execution with a Q6 abort or do one of the following: 
Continue with execution of the program 
Transfer to an alternate error routine 
4. To allow the user to determine if an error has been processed by 
FXEM. 
Il. METHOD 
1. Error linkage for tracing calls is generated by the General Macro 
Assembler (GMAP). Tracing stops when the address of the CALL 
instruction in the error linkage word is zero, or when the number of 
traces exceeds a given constant. 
The error trace prints in reverse order. It includes the name of each 
calling routine, identifying number of the CALL instruction, absolute 
location of the CALL instruction, and the calling arguments (up to 5). 
2. The functions of this routine are optional. The options are controlled 
by the following switch word pairs: 
. FXSW1--termination 
. FXSW2--message printing 
. FXSW3--alternate error returns 
Each of the bits 1-71 in a switch word pair corresponds to an error code. 
3. Special processing applies to sea code 55. When this error is 
encountered, the following message is written: 


ILLEGAL VALUE FOR COMPUTED GO TO AT ID NUMBER XXXxXX 
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4, The error code is always stored in the location FXCODE in FXEM. 
Since this is a SYMDEF, it may be accessed by a FORTRAN or GMAP 
program. 

0. The error code is also stored indirectly through a pointer defined in 
FXEM. This pointer may be set by calls to ANYERR. If this pointer 
has been initialized to contain the address of a variable in the user's 
program via a call to ANYERR, the variable will also contain the 
error code, ee upon return to the calling 
subprogram. 

6. FXOPT is an entry to. FXEM. which, for a given error code, sets the 
corresponding bits in. FXSW1, . FXSW2, and . FXSW3 to the low-order 
bit of the second, third, and fourth arguments. (See "Usage,'"' item 5. ) 
The first argument is the error code. When a call is made to. FXEM., 
the error code is used to shift each switch word pair and set the options 
accordingly. 

7. FXALT stores the location of its argument in location FXALT1 in . FXEM. 
(See Usage, " item 6.) If the alternate error return option is used, 
index register 1 and the indicator register are restored; and a transfer 
is made to FXALT1I indirect. Thus, if the alternate return is a sub- 
program, the RETURN statement transfers to the location following the 


call to. FXEM. If no alternate has been supplied, a Q5 abort occurs. 
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8. A divide check, an overflow, or an underflow transfers to. FXEM. via 
the program fault vector. (For a description of the fault vector, see 


GE-625/635 Comprehensive Operating Supervisor (GECOS-II), CPB-1518, 


a AS A RSENS S SA  A ED 


pp. 151-53, or for GECOS-II see GE~625/635 Comprehensive Operating 
Supervisor, CPB-1195, pp. 131-33. See also "SETUP," p. 42 in this 
manual.) .FXEM. writes the error message and loads the proper values 
into the EAQ-registers. The normal return is RET 6 (divide check) or 
RET 8 (overflow and underflow). If an alternate return is requested, the 
indicators and index register 1 are loaded from the fault vector, so that 
a RETURN statement in the alternate routine will transfer to the location 
immediately following the one that generated the fault. 

9. FXEM is the entry provided for error conditions detected by the user's 
program. Error codes 61-66 are reserved for users. The statement 

CALL FXEM (NCODE, MSG, N) 

prints an error trace and N words of the message in the array MSG. 
MSG must be an array containing Hollerith information. If either MSG 
or N is omitted or is zero, no message is printed. If N is greater than 


20 words, only 20 words are printed. 
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Iii. USAGE 
1. Calling Sequence - CALL . FXEM. (X%, Y) 
Where X = Address of error description controls 
Y = Address of tally word which is used to indicate card 
column found in error. Y is optional and is used only 
if a card image is to be printed. 
2. Instruction Sequence at X 
X ZERO A, B 
ZERC C,D 
ZERO E, F 
A = Address of card image to be printed (or zero when card image is 
not to be printed). 
B = Error code expressed as an integer (n) in the range len¢71 
C = Address of message 1. 
D = Word count of message 1. 
E = Address of message 2. 


F = Word count of message 2. (wr ee RE Sl ee pee 
- yh 102 Aion ) baile 

em Ne eo ag 
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The statement CALL ANYERR (V)--where V is a variable into which 


3. CALL ANYERR (V) 


thelerror code is to be stored for the user--sets the pointer in FXEM 
and initializes V at zero. The value of V changes to contain the error 


code of detected errors if FXEM is called. 
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4. Switch Word Pairs 
. FXSW1 (termination)--Figure 1 shows the standard bit settings and 
the names of the routines that use the corresponding error codes. The 
meaning of the bit settings is as follows: 
1 Continue execution 
| 0 Terminate with a Q6 abort 
Termination may be overridden by the corresponding bit of . FXSW3 
(see below). 
. FXSW2 (message printing and trace)--The meaning of the bit settings 
is as follows: . | | 
1 Suppress printing 


QO Print 
This pair is initialized to zero. 


call to FXOPT. 


. FXSWS (alternate error return)--The meaning of the bit settings is 


Settings may be changed by program 


as follows: 
1 Use alternate error return (overrides termination option 
set in. FXSW1) 
0 Use normal return 
This pair is initialized to zero. 
call to FXOPT. 
5. CALL FXOPT (NCODE, I1, 22, 13) 
FXOPT is an entry to . FXEM which may be called to alter the standard 
In the statement CALL FXOPT (NCODE, II, 2, 18), 
NCODE is an error code; and I1, 12, and I3 provide oS Bettings for the 


Settings may be changed by program 


switch word settings. 


corresponding bits in the three switch word pairs. »' is ‘ i: ae 
\. ee mY eas Pai 


Examples: r Pens 
1. CALL FXOPT (32,0,1,0) “—"  pinop code 32 
2. CALL FXOPT (382, 1,0, 0) denotes an illegal 
3. CALL FXOPT (32, 0, 0, 1) Sector eee 


data. 


Example 1 causes a Q6 abort when the error occurs, and no message | 
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Bit Position/ 
Error Code 
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Figure 1. 
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 XP1 


XP2 
XP2 
XP3 
XP3 
XP3 
FXPF 
FLOG 
FLOG 
FATN 
FSCN 
FSQR 
FDX1 
FDX1 
FDX2 
FDX2 
FDX2 
FDXP 
FDLG 
FDLG 
FDSQ 
FDSC 
FDAT 
FCAS 
FCXP 
FCXP 
FCLG 
FCSC 
FCSC 
FRWD 
FRWD 
(Not Used) 
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(Not Used) 
EXIT 

. OPEN. 
(Not Used) 
FRWB 
(Not Used) 
FVFI 

FV FI 
FVFI 
FVFI 


| FVFI 


FBST 

FV FI 
FBST 
(Not Used) 
SLITE 

FV FI 
SSWTCH 
EXIT 
FXEM 
EXIT 
FRWD 
(Not Used) 
(Not Used) 
(Not Used) 


User 
Codes 


EUNDER 
OVER 
EOVER 
FXDVCK 
FLDVCK 
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or trace is printed. 
Example 2 causes execution to continue after message and trace are 
printed. 
Example 3 indicates that return is to an alternate error routine after 
trace and message are printed, since the alternate return option takes 
precedence over termination. 

6. CALL FXALT (SR) 
FXALT is an entry to . FXEM which may be called to set the alternate 
error return location. The statement CALL FXALT (SR) communicates 
to FXEM the name, SR, of the alternate error routine. An EXTERNAL 
SR must be included in the calling routine. If the alternate return 
option for an error code is indicated but no call to FXALT has been 
made, a Q5 abort follows when the error occurs. A RETURN statement 
in the alternate routine continues execution at the instruction immediately 
following the one where the error occurred. 
The statement CALL FXALT ($N) designates statement N in the calling 
program as the alternate error return. 
Note: If the same error also occurs in the alternate error routine, an 
interminable loop results. 

7. Overflows and Divide Check 
The fault processor processes divide check, overflow, exponent overflow, 
and exponent underflow faults. A message is output on file 06 stating 
the type of fault and the memory location at which the fault occurred. 
Execution continues in the normal manner, although the EAQ-registers 


may have been reset as depicted in the following table. 
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FAULT EAQ-REGISTERS | 
Largest floating-point value 


Largest floating-point value 


Exponent overflow 


Divide check (FP) 


Exponent underflow 


| Overflow (1) 
Divide check (1) 


To have another value returned in the EAQ-registers after a divide 


Floating-point zero 


No change 


No change 


check, CALL FXDVCK (R,M) should be executed prior to the occurrence 
of the fault. The statement causes the value of R to be returned in the 
EAQ-registers after a real divide check and the value of M to be returned 
in the Q-register after an integer divide check. The first argument 
must be double precision. . The second argument may be omitted. 

8. CALL FXEM (NCODE, MSG, N) 
A FORTRAN-callable entry has been added to FXEM so that it may be 
called when the program detects an error condition. 
The statement CALL FXEM (NCODE, MSG, N) causes the printing of 
(1) an error trace and (2) the Hollerith message contained on the MSG 
array. The number of words N to be printed must be within the limits 
O<N£20. If only the first argument is given, only the ace is printed. 


9. User Error Codes 


Error codes 61 - 66 are reserved for programmer usage. 
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IV. RESTRICTIONS 

Ll. When the error code is greater than the maximum value 
specified for error codes, the message ERROR CODE 
XX GREATER THAN MAX is written and execution is 
terminated. 

2. When Y = Address of Tally Word, the address portion 
of Y-1 must contain the word count of the card image. 

3. The subprograms FOPEN, WIREC, and EXIT must be in 


memory. 
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LINK--RESTORE LINKS DURING EXECUTION 


I. PURPOSE 
To restore the Link specified in the calling sequence to the 
exact position it had at load time. The procedure to follow 


after restoring the Link depends on the entry used: 


LINK - Restore the Link and transfer to its entry point 
as specified at load time. 
LLINK - Restore the Link and return to the statement or 


instruction following the CALL to this subroutine. 


If DEBUG is requested at load time in any or all of the Links, 
these subroutines join together the respective Debug 
Tables enabling the user to take snap dumps of any 


links in memory at the time of his request. 


II. METHOD 
LINK assumes the General Loader has generated a file 


(file code H*) containing the user's program segmented into 


Links as specified by $ LINK control cards. 


‘Both entries to this subroutine use the GERSTR function of the 
General Comprehension Operating Supervisor (GECOS). After 
restoring a Link, tests are made to determine if the Link 
contained a Debug Table. If so, the address of this table is 
chained to existing tables. If none exists in memory at this 
time, the address is placed in the DRL cell (cell 13 of the 
Fault Vector). Debug Tables, corresponding to Links which are 


overlayed in the process, are deleted from the chain. 
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III. USAGE 
1. Calling Sequence - CALL LINK (LINKID) 


CALL LLINK CLINKID) 


where LINKID is the location of the Link Identifier 


specified as a literal. 
2. LINK uses 70 memory locations. 


3. No error conditions. 


IV. RESTRICTIONS 
An H* file generated by GESAVE must be present 
Mae ee Se SON 


the Links. 
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containing 


STORE--ACCESS HALF OF A DOUBLE: PRECISION OR COMPLEX WORD 


B 


Il. 


Lil; 


IV. 


PUR POSE 
To provide a method of accessing only half of a double- 
precision or complex number. 
METHOD 
A call is generated by SIFT for PART or STORE if a variable 
or element of an array was referenced in FORTRAN II without 
an I or D in column one, At execution time, PART will 
return with the address of the proper half and STORE will 
store the desired value in the desired part of the double 
precision or complex number. 
Usage 
1. Calling Sequence- X = PART (Y, Y(I), 10) 
CALL STORE (Y, Y(I), 10, T) 
The first three parameters are the same. 
First parameter = array name 


Second parameter = array element, desired part of 


dip gee bya Ww ° 


double precision or complex 


tne at ee ae sever 
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Third parameter = array siz 
The fourth parameter for STORE is the value to be stored 
in the second parameter. 

2. STORE uses 30 memory locations. 

3. No error conditions. 

Restrictions 


None 
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SETBUF--DEFINE A BUFFER(S) FOR A SPECIFIED FILE CONTROL BLOCK 


I. PURPOSE 

To allow the user to assign space in memory for use as an 
input /output buffer. 

II. METHOD 
Subprogram SETBUF searches the logical file table for the 
specified file and its associated file control block. It 
then attaches the buffers defined to the file control 
block. No check is made to verify that buffers are of 
sufficient size; this is the users responsibility. 

III. USAGE 
1. Calling Sequence - CALL SETBUF (I,A) 

or CALL SETBUF (1,A,B) 


where I is the logical file designator 
A is the location of the first buffer 


B is the location of the second buffer if necessary 
2. SETBUF uses 28 memory Locations. 
IV. RESTRICTIONS 
The subprogram FOPEN must be in memory. 
The size of the total buffer must be one location greater 
than the area to be used for actual storage of records. 


Therefore, a standard size buffer is 321 words long. 
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SETFCB--DEFINE FILE CONTROL BLOCK 


I. 


se 


IIl. 


IV. 
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PUR POSE 
To allow the user to define a file control block for 
use by the FORTRAN I/O Library subprograms. 
METHOD 
The subprogram SETFCB searches the previously defined logical 
file table for an open space to insert the reference to 
the file control block. It accepts the file control block 
address and appends . character positions 3, 4, 5 to 
the various logical file codes referring to this file 
control block. It makes as many entries as necessary in 
the "Logical file - file control block" table. 
USAGE 
1. Calling Sequence - CALL SETFCB (A, I, of toed 
where - 
A is the location of LOCSYM in the user created 
file control block. 
I, J, ... are the logical files that refer to this 
file control block. 
2. SETFCB uses 62 memory locations. 
3. The error conditions are: 
Abort code Q2 if no logical file table exists. 
Abort code Q1 if there is no space available in the 
logical file table for inserting desired file control block. 
RESTRICTIONS 


None. 
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SETLGT--DEFINE LOGICAL FILE TABLE 


I. 


i i 


Ay 


IV. 


GE-600 SERIES 


PURPOSE 

To allow the user to define a logical unit table for 
use by the FORTRAN I/O library subprograms. 

METHOD 

The subprogram SETLGT accepts the array specified by the 
user as the logical unit table. It changes its first 
location to be a pointer to the last usable position of 
the array and places the address of the array +1 in fault 
vector location 25,. 

USAGE 

Ll. Calling Sequence - CALL SETLGT (A,I) 


where 
A is the location of the logical unit table to 


be used, 

I is the number of cells in the table A. 
2. SETLGT uses 14 memory Locations. 
RESTRICTIONS 
SETLGT must be called before any Input/Output is requested. 
SETLGT is called only when the user wishes to suppress the 
logical file table generated by GELOAD and place the table 
in his own portion of memory. The user should use the 


NOFCB option on the $OPTION GELOAD control card. 


= 
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SETUP--PRE~EXECUTION INITIALIZER 


I. 


Il. 


PURPOSE 

To perform installation standard procedures prior to 
execution of the user program. 

METHOD 

SETUP clears unused memory, sets it to either the constant 
specified in the $OPTION GELOAD control card or to zeros 

if the constant is not defined. SETUP places the address 
of the "logical file - file control block" table in 

fault vector location 25,. Ina link job with debug 
requested in link 0, it places a transfer to the debug 
table in fault vector location 15g. It places the entry 
point and a bit indicating a low-load job in fault vector 
location 24g, It then calls the subprogram .FLTPR to ini- 
tialize for fault processing. Currently there is a 
secondary SYMDEF .FLTPR imbedded in subprogram FXEM to 
satisfy this SYMREF in a FORTRAN execution. This 

routine places transfers to fault processing routines in 
fault vector locations 7g and 1lg. These are also imbedded 
in subprogram FXEM., There also exists on the library a 
separate subprogram with SYMDEF .FLTPR which places returns 
in fault vector locations 7g and 11g to ignore faults. This 
subprogram will be used if the job uses no FORTRAN Library 


subprograms. Either .FLTPR returns to SETUP which zeros out 
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all index registers and performs a TSX1 to the real entry 

point of the user's program. The SETUP subprogram is 

written in such a way that it can be easily changed by 

an installation to perform their own desired fault 

processing, secant ine techniques, etc. 

III. USAGE 

Ll. SETUP is entered by GELOAD only; the entry point is 
defined as .SETU. . GELOAD assumes a five position 
storage block from cell .SETU.-1 to cell .SETU.-5 


inclusive. 
Cell Definition 

»SETU.-5 upper half contains lowest address of memory 
used by program and LABELED COMMON region 
lower half contains highest address of memory 
used in BLANK COMMON region 

- SETU. -4 logical unit table pointer in address field 

sob lU.=3 upper half = lowest cell used by program 
lower half # 0 = address of pointer to 
debug subroutine in link 0 

-SETU. -2 memory reset constant 

»SETU.-1 upper half = entry point address 


lower half # O indicates low-load job 
2. SETUP uses 40 memory locations. 
3. No error conditions. 
IV. RESTRICTIONS 
If the user requires initialization of the cells specified 
in SETUP, he must either use this subprogram or supply 


his own subprogram to perform the initialization. 
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FSLEW--CARRIAGE CONTROL SIMULATOR 


I. PURPOSE 
To format FORTRAN-generated print lines for the General Electric 
carriage-positioning-after-printing printer (PRT201). 

Il. METHOD 
FSLEW is called by the FORTRAN I/O routine FRWD, BCD I/O Interface 
by Format Control (see p. 23). Control is passed to FSLEW after each 
print line has been prepared according to the format specification. 
Recognized carriage control characters are 0, 1, +, and. FSLEW looks 
to see if the first character of the prepared print line is one of these 
pharactend: 
If the first character is not a recognized carriage control character, 
FSLEW assumes the normal case: single space carriage positioning (pb). 
It therefore appends one word of single space slew information to the 
current print line. 


If the first character of the prepared print line is a recognized carriage 


control character, FSLEW proceeds as follows: 
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jb - Single Space - This is the normal case, as explained above. 
The procedure is the same. 
+ - Space Suppress - The single space slew information that was 
appended to the previous print line is replaced by space suppress 
slew information. 

Note: For space suppression control, two conditions 

are assumed: (1) that the last record written on the 

current file is the line on which overprinting is desired 

and (2) that this line is currently in the buffer (so that 

its slew information can be changed). Both conditions 

must be satisfied for proper operation. 
1 - Eject Before Printing - A 1-word print line (that is, a 1-word 
record) consisting of slew-to-top-of-page information is generated. 
This causes a Slew to top of page to follow immediately after the 
single space resulting from the information appended to the previous 
line. 
0 - Double Space - A 1-word print line (that is, a 1-word record) 
consisting of single space slew information is generated. This 
information and the single space information appended to the previous 
print line result ina double space operation. 

Besides taking the actions described above for the recognized carriage 
control characters, FSLEW sets any such character to a blank (6), if it 


is not already a blank. 
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The NOSLEW option on the $ FFILE card causes bit 23 of FCB word -6 
to be set to 1. 

FSLEW recognizes this option and changes the output files written by 
FSLEW as follows: 

1, The addition of a slew word at the end of a data record is inhibited. 

2. The generation of 1-word print lines containing only slew 
information is inhibited. 

3. The substitution of a blank character for the carriage control 
character (first character of data record) is inhibited. 

4. A media code of Zero is stored in the record control word 
in place of media code 3. 

Do. The "blank line" records generated by consecutive slashes in 
FORMAT statements are represented by 1-word records 
consisting only of blanks. (In the absence of the NOSLEW 
option, consecutive slashes in FORMAT statements cause 
1-word records containing slew characters for single-line 
slews to be generated. ) 

Ill. USAGE 
1. Calling Sequence - CALL . FSLEW (PL) where PL is the location 
of the print line. It is assumed that location . FBAD. in subprogram 
FOPEN contains the address of the file control block for the output 
file, and that word +1 of the file control block contains the size of 
the print line. 
2. FSLEW uses 66 memory locations. 
IV. RESTRICTIONS 


The subprograms WTREC, FXEM, and FOPEN must be in memory. 


' FORTRAN IV 
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LHSF--RESTORE LINK - H* 


I. PURPOSE 
To reload a program from an H* file (tape) which was generated in a 
previous GELOAD activity. The H* file was generated by having a 
$ TAPE H* control card (see GE-625/635 General Loader, CPB-1008) 
at execution time. 
Il. METHOD 
The H* file generated by GELOAD contains a link identified as ////// 
which is the main or common subprogram of the job. If the FCB option 
was in effect during loading (generation of H* file), a second link identified 
as /////1 containing all file control blocks generated by GELOAD will 
also be present on H*. This subroutine searches the H* file for these 
identifiers (/////1 is optional), restores them, and enters the main 
subprogram at the entry location specified during the GELOAD activity. 
III. USAGE 
1. This program is called directly from the subroutine library and 
requires no other subprograms. 

2. The entire job could be set up as follows: 

$ SNUMB 

$ IDENT 

$ USE . LHSF 

$ ENTRY .LHSF 

$ EXECUTE 

$ LIMITS 

$ TAPE BY 3% 

$ DATA AB (Optional) 


$ ENDJOB 
KKAOR 
If the NOFCB option was in effect when GELOAD generated the H* file, 
an entry card of the form: | 
$ ENTRY .LHSNF 
must replace the card following the $ USE card. 
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IV. RESTRICTIONS 
1. A$ LOWLOAD card (see CPB-1008) must be included if the H* file 
was generated under this option. 
2. The same memory limits must be requested as were in effect when 
the H* file was generated. 
3. One of the setup subroutines must have been used when the H* file 
was generated. Entry to the main link is made through those subroutines 


for purposes of initialization of fault vectors. 
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FINC - BCD INTERNAL CONVERSION INTERFACE 


I. PURPOSE 
To provide the interface with .BDCNV or .DBCNV for the 


internal conversion of an array. 


II. METHOD 


-FINC sets up and executes the required calling sequences. 


III. USAGE 
1. Calling sequences 
a) Binary-to-decimal conversion 
CALL FOCNVS(LIST,N, BUF, FORM,WDA, LINES ) 
for an array of single precision numbers 
CALL FOCNVD(LIST ,N, BUF, FORM,WDA, LINES ) 
for an array of double precision numbers 


where: 


LIST location of the array to be converted 
N number of words in the array 


BUF location of a buffer in which to store 
the resulting BCD record 


FORM location of the format controlling 
conversion 


WDA location of an array in which to 
store the number of words in each 
of the resulting lines 


LINES location in which to store the number 
of lines. 
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b) Decimal-to-binary conversion 
CALL FICNVS(LIST ,N,BUF,FORM,WDA, LINES) 
for an array of single precision items 
CALL FICNVD(LIST,N, BUF, FORM,WDA, LINES ) 
for an array of double precision items 
where: 


LIST location of an array in which to 
store the binary numbers 


N number of fields to be converted 


BUF location of the input array contain- 
ing the BCD record 


FORM location of the format controlling 
conversion 


WDA location of an array containing the 
number of words in each line of the 
BCD record. 

LINES location containing the number of 
lines in the BCD record. 


2. FINC uses 73 memory locations 


3. No error conditions 


IV. RESTRICTIONS 


The subprogram FRWD must be in memory. 
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